home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / bufferio.zip / TESTBUFF.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  427b  |  21 lines
  1. PROGRAM testbuff;
  2. USES BUFFERIO;
  3.  
  4. VAR
  5.   InFile, OutFile: FILE;
  6.   ch: char;
  7.   Result: word;
  8.  
  9. BEGIN { testbuff }
  10.   Assign (InFile, 'FOO');
  11.   ReSet (InFile, 1);
  12.   Assign (OutFile, '');
  13.   ReWrite (OutFile, 1);
  14.   WHILE NOT EOF(InFile) DO
  15.     BEGIN
  16.       Seek (InFile, FilePos (InFile));
  17.       BlockRead  (InFile,  ch, 1, Result);
  18.       BlockWrite (OutFile, ch, 1, Result);
  19.     END; { While }
  20.  
  21. END.  { testbuff }